<script>on mouseUpset icon of btn startbutton to stopput empty into zählerput the number of lines of fld "Volumes" into nummernrepeat with vol = 1 to number of lines in cd fld "loadvols"put line vol of cd fld "loadvols" into cd fld "directory"if zähler = nummern then exit mouseupif cd fld "string" is empty thenput "put it into LookAtDate" into virusstringi -- part of the virus MUSIDENNput virusstringi into cd fld "string"elseput cd fld "string" into virusstringiend ifput empty into cd fld "Work"set the scroll of cd fld "Work" to 0set cursor to busyput the long name of this card into cstackput cd fld "Directory" into Directoryput "Getting Names of All Stacks on: " & Directory & "…" & return into cd fld "Work"get the secsconvert it to date and timeput it into zeitieput return & "Scan of (hard)disk: " & Directory & " started at: " & zeitie & return after fld "results"select last line of fld "results" -- to scroll down if already more lines in it then visible = clever!put GetDir(Directory,"A+","t=STAK","o=p") into Stacksif Stacks is empty thenput return & "* Cancelled: No Stacks Found." after fld "results"put return & "Select another (hard)disk to be checked" && ¬"by clicking its name in the field here above." && ¬"Start again by clicking the Microscope Button !" after cd fld "Work"set icon of btn startbutton to microscopeexit mouseUpend ifput 0 into xput 0 into yput the number of lines of Stacks into totallyrepeat with n = 1 to the number of lines of Stacksadd 1 to xset cursor to busyput line n of Stacks into ThisStackput x & " Stacks out of " & totally & " Stacks" into second line of cd fld "work"put ThisStack & ": Working…" into third line of cd fld "Work"set lockrecent to trueset lockscreen to trueset lockmessages to truego to stack ThisStack--****************************************************************-- Here starts the virus script search in each stack to be checked:get the script of stack ThisStackput it into VIRUSCHECKif virusstringi is in viruscheck or "Elevenscript" is in viruscheck ¬or "Housescript" is in viruscheck or "strangescript" is in viruscheck ¬or "BeginOfTime" is in viruscheck or "Don't panic" is in viruscheck ¬or "Idlemaker" is in viruscheck or "220 c3q d3q e3h e3q g3q f3h f3q a3q g3q" is in viruscheck-- virusstringi contains a part of the virusscript MUSIDENN-- version 1.4: some extra searchstrings added for modified scripts of newer virusversions...thenadd 1 to ygo cstackset lockscreen to falseput return & Thisstack & ": ....................This Stack may be Infected !!!!!" after fld "results"select last line of fld "results" -- to scroll down = clever!elseput "...OK" into ivefoundoneend if--****************************************************************go cstackset lockmessages to falseset lockscreen to falseset lockrecent to falseset cursor to busyput ivefoundone into last word of cd fld "Work"if the mouse is down thenput true into cancelledexit repeatend ifput false into cancelledend repeatadd 1 to zählerif cancelled is true then exit repeatend repeatif cancelled is false thenget the secsconvert it to date and timeput it into zeitieput return & "* Checkup Completed of " & x & " Stacks at " & zeitie into third line of cd fld "Work"put return & "* Checkup Completed of " & x & " Stacks at " & zeitie & return after fld "results"elseput return & "* Search Cancelled by the User after checkup of " & x & " Stacks out of " & totally & " Stacks; at " & zeitie & return after fld "results"put return & "* Search Cancelled by the User after checkup of " & x & " Stacks out of " & totally & " Stacks; at " & zeitie into third line of cd fld "work"end ifif "....................This Stack may be Infected !!!!!" & return is in fld "results"thenput return & y & " Stacks may be infected!" & return after fld "results"elseput return & "No infected scripts found." & return after fld "results"end ifselect last line of fld "results" -- to scroll down = clever again!set userlevel to 5set icon of btn startbutton to microscopeend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>470</left>
<top>166</top>
<right>504</right>
<bottom>200</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>32462</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpvisual effect dissolve slow to grayset the scroll of cd fld "info" to 0show cd fld "Info"end mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>0</top>
<right>135</right>
<bottom>18</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>String to be found :</name>
<script>on mouseUpset the locktext of cd fld "string" to not the locktext of cd fld "string"end mouseUp</script>
<script>on mouseUpif cd fld "loadvols" is empty thenanswer "Please choose first one or more disks !" with "Sorry"elsesend mouseup to btn "begin virus-check"end ifend mouseUp</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>470</left>
<top>246</top>
<right>504</right>
<bottom>280</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1004</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpput fld "results" into resultnaampieopen file "Virus Search Report"write resultnaampie to file "Virus Search Report"close file "Virus Search Report"answer "Results written to file “Virus Search Report”"end mouseUp</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>470</left>
<top>206</top>
<right>504</right>
<bottom>240</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1011</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>New Button</name>
<script>on mouseUpgo homeend mouseUp</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>126</top>
<right>512</right>
<bottom>322</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Info</name>
<script>on mouseuphide cd fld "info"end mouseup</script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>8</left>
<top>191</top>
<right>463</right>
<bottom>209</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Directory</name>
<script></script>
</part>
<part>
<id>33</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>77</top>
<right>510</right>
<bottom>188</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>loadvols</name>
<script></script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>104</left>
<top>84</top>
<right>192</right>
<bottom>106</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>suche</name>
<script>on mouseUpglobal ohnehackenput "on mouseup" & return & "global ohnehacken" & return & "find word in cd fld loadvols" & ¬return & "delete the foundLine" & return & "end mouseup" & return into zumsuchenput character 3 to 99 of ohnehacken into ohnehackenput " " & quote & ohnehacken & quote after second word of third line of zumsuchendo zumsuchenend mouseUp</script>
 (January 1993).iso/Files/Hyper/Hyperj-Hz/HyperVirus 1.4.cpt/HyperVirus 1.4/Find HyperVirus 1.4/BMAP_4699.png){kind=link}
 (January 1993).iso/Files/Hyper/Hyperj-Hz/HyperVirus 1.4.cpt/HyperVirus 1.4/Find HyperVirus 1.4/PATs.png){kind=link}